unit importarclientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, StdCtrls, DBTables;

type
  Tfimportarclientes = class(TForm)
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    clientesdb: TTable;
    clientesdbf: TTable;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    clientesdbfCLICODI: TSmallintField;
    clientesdbfCLINOME: TStringField;
    clientesdbfCLIFANT: TStringField;
    clientesdbfCLICGC_: TStringField;
    clientesdbfCLIENDE: TStringField;
    clientesdbfCLICIDA: TStringField;
    clientesdbfCLIUF__: TStringField;
    clientesdbfCLICEP_: TStringField;
    clientesdbfCLIFON1: TStringField;
    clientesdbfCLIFON2: TStringField;
    clientesdbfCLIFAX_: TStringField;
    clientesdbfCLICONT: TStringField;
    clientesdbfCLIHONO: TFloatField;
    clientesdbfCLIDIA_: TSmallintField;
    clientesdbfCLICF_D: TStringField;
    clientesdbfCONTA: TSmallintField;
    clientesdbfPARAMETRO: TFloatField;
    clientesdbCodigo: TFloatField;
    clientesdbRazao: TStringField;
    clientesdbFantasia: TStringField;
    clientesdbEndereco: TStringField;
    clientesdbCidade: TStringField;
    clientesdbUf: TStringField;
    clientesdbCep: TStringField;
    clientesdbCpf: TStringField;
    clientesdbCnpj: TStringField;
    clientesdbEstadual: TStringField;
    clientesdbTel1: TStringField;
    clientesdbTel2: TStringField;
    clientesdbFax: TStringField;
    clientesdbEmail: TStringField;
    clientesdbPagina: TStringField;
    clientesdbHonorario: TCurrencyField;
    clientesdbSalario: TFloatField;
    clientesdbConta: TStringField;
    clientesdbDatacadastro: TDateField;
    clientesdbDatainicio: TDateField;
    clientesdbContatos: TStringField;
    clientesdbDia: TSmallintField;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fimportarclientes: Tfimportarclientes;

implementation

{$R *.dfm}

procedure Tfimportarclientes.Button1Click(Sender: TObject);
var
contador : integer;
begin
contador := 1;
clientesdbf.First;
while not clientesdbf.Eof do
 begin
 if not clientesdb.FindKey([contador]) then
    begin
    clientesdb.Append;
    clientesdbcodigo.value    := contador;
 end;
 clientesdb.edit;
 clientesdbrazao.Value     := clientesdbfclinome.value;
 clientesdbfantasia.Value  := clientesdbfclifant.value;
 clientesdbendereco.Value  := clientesdbfcliende.value;
 clientesdbcidade.Value    := clientesdbfclicida.Value;
 clientesdbuf.Value        := clientesdbfcliuf__.value;
 clientesdbcep.value       := clientesdbfclicep_.value;
 clientesdbcnpj.value      := clientesdbfclicgc_.value;
 clientesdbestadual.Value  := clientesdbfclicf_d.Value;
 clientesdbcontatos.value  := clientesdbfclicont.value;
 clientesdbtel1.value      := clientesdbfclifon1.value;
 clientesdbtel2.value      := clientesdbfclifon2.value;
 clientesdbfax.value       := clientesdbfclifax_.value;
 clientesdbhonorario.value := clientesdbfclihono.Value;
 clientesdbdia.Value       := clientesdbfclidia_.Value;
 clientesdbconta.Value     := clientesdbfconta.asstring;
 clientesdbsalario.value   := clientesdbfparametro.Value;
 contador := contador + 1;
 clientesdbf.Next;
end;
end;

procedure Tfimportarclientes.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tfimportarclientes.FormCreate(Sender: TObject);
begin
clientesdbf.Open;
clientesdb.Open;
end;

end.
